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Abstract. We introduce a generalisation of monads, called relative mon- 
ads, allowing for underlying functors between different categories. Ex- 
amples include finite-dimensional vector spaces, untyped and typed A- 
calculus syntax and indexed containers. We show that the Kleisli and 
Eilenberg-Moore constructions carry over to relative monads and are 
related to relative adjunctions. Under reasonable assumptions, relative 
monads are monoids in the functor category concerned and extend to 
monads, giving rise to a coreflection between monads and relative mon- 
ads. Arrows are also an instance of relative monads. 

1 Introduction 

Monads are the most successful programming pattern arising in functional pro- 
gramming. Apart from their use to model a generic notion of effect they also 
serve as a convenient interface to generalized notions of substitution. Research 
in the area on the border between category theory and functional programming 
focusses on unveiling new programming and reasoning constructions similar to 
monads, such as comonads [18], arrows [9] and idioms (closed functors) [13]. 
Indeed, especially when working in an expressive and total language with de- 
pendent types, such as Agda [3], we can exploit monads not only as a way to 
structure our programs but also their verification. 

The present paper is concerned with a generalisation of monads which arises 
naturally in dependently typed programming, namely monad-like entities that 
are not endofunctors. Consider the following example, which arose when im- 
plementing notions related to quantum programming, namely finite-dimensional 
vector spaces [19,4]. (See also Piponi [15] for this and other interesting uses of 
vector spaces in functional programming.) 

Example 1. In quantum computing, we consider complex vector spaces, but 
for the present development any semiring (R, +, 0, x , 1) is sufficient. Finite- 
dimensional vector spaces can be given by: 

Vec e |Fin| -» |Set| 

Vec to =df Jfin^R 

f] e iT me |Fin|^f m -» Vec to 

i] m (i G to) = df Xj e m. if i = j then 1 else 0 

(-)* e i7 m ,„ e |Fin|(Jf m -» Veen) -> (Vec to -» Veen) 

A* x = df Xj e n. T,iem xix Aij 



Here Fin is the category of finite cardinals (the skeletal version of finite sets). 
The objects are natural numbers m € N and the maps between m and n are 
functions between m and n where m =<jf {0, 1, . . . , m — 1}. By J f e Fin — > Set 
we mean the natural embedding Jf m=df m. The finite summation ^ is just the 
finite iteration of + over 0. Indeed ?7 m is just the unit raxra-matrix (alternatively, 
a function assigning to every coordinate i g m the corresponding unit vector) 
and A* a; corresponds to the product of the matrix A with the vector x, where 
both matrices and vectors are described as functions. 

By the types of its data, the structure (Vec, 77, (— )*) looks suspiciously like a 
monad, except that Fin is not Set and in the types for 77 and (— )* we have used 
the embedding Jf to repair the mismatch. It is easy to verify that the structure 
also satisfies the standard monad laws, modulo the same discrepancy. 

The category of finite-dimensional vector spaces arises as a kind of Klcisli cat- 
egory. Its objects are m g N, understood as finite coordinate systems (describing 
vector spaces), and its morphisms are functions Jfm — > Veen, i.e., matrices (de- 
scribing linear transformations). 

The structure cannot generally be pushed to a monad on Set. (— )* requires 
that we can sum over a set. Summation over general index sets is not available, 
if R is just a semiring. Also, in a constructive setting, r\ requires that the set has 
a decidablc equality, which is not the case for general sets. 

We view Vec as a relative monad on the embedding Jf g Fin — > Set. Other 
examples of relative monads include untyped and simply typed A-terms and the 
notions of indexed functors and indexed containers as developed in [14]. 

Overview of the paper In Sect. 2 we develop the notion of relative monads on 
a functor J G J — > C, showing that they arise from relative adjunctions, and 
generalize Klcisli and Eilcnbcrg-Moore constructions to relative monads. 

Since monads on C correspond to monoids in the endofunctor category [C, C], 
a natural question is whether a relative monad on J gives rise to a monoid in 
the category [J,C]. If J is small and C is cocomplete (e.g., Set), the left Kan 
extension along J exists and give rise to a lax monoidal structure where the unit 
is J and the tensor is given by F - J G =df Lanj F ■ G. Indeed, relative monads 
give rise to lax monoids in this lax setting (Sect. 3). 

Going further, we identify conditions on the functor J, under which the lax 
monoidal structure induced by Lanj is properly monoidal. In this case, we obtain 
a proper monoid in the category of functors. Moreover, relative monads extend 
to monads via Lanj and we get a coreflection between monads and relative 
monads (Sect. 4). In the example of vector spaces, Lanj Vec is the monad whose 
Klcisli category is that of vector spaces over general sets of coordinates where a 
vector over an infinite set of coordinates may only have finitely many non-zero 
components. However, it is worthwhile not to ignore the non-endofunctor case, 
because frequently this is the structure we actually want to use. E.g., in quantum 
computing we are interested in dagger compact closed categories [2] . 

Finally, we show that arrows are relative monads (Sect. 5) on the Yoneda 
embedding. This leads to the, maybe surprising, outcome that while arrows 
generalize ordinary monads, they are actually a special case of relative monads. 



Related work The untyped A-calculus syntax as has been identified as a monoid 
in [Fin, Set] by Fiore et al. [7]. Hcuncn and Jacobs [8] have shown that arrows on 
C are actually monoids in the category [C op x C, Set] of cndoprofunctors; Jacobs 
et al. have proved the Freyd construction of [16] is, in a good sense, the Klcisli 
construction for arrows. Spivey [17] has studied a generalization of monads, 
which differs from ours, but is similar in spirit and related (see Conclusion). That 
the monoid nature of monads is important in developing applications of monads, 
was recently shown by Jaskelioff in his work on modular monad transformers [11]. 

Notation We will be using a mixture of categorical and type-theoretic notation. 
In particular we will be using A-calculus notation for defining functions (maps 
in Set or subcategories) . Customarily for both category theory and type theory, 
we often hide some arguments of patterns and function applications (normally 
subscripted arguments, e.g., an object a natural transformation is applied to). 

We write |C| for the objects of C and C (X, Y) for the homsets. Given cate- 
gories C,D we write the functor category as [C, D]. We write id, o for the identities 
and composition of maps and /, • for the identities and composition of functors. 

2 Relative monads and relative adjunctions 

We start by defining relative monads. Then we give some examples and show 
how the theory of ordinary monads carries over to the relative case. 

2.1 Relative monads 

Rather than being defined for a category C like a monad, a relative monad is 
defined for a functor J between two categories J and C. 

Definition 1. A (Manes-style [12]) relative monad on a functor J : J — > C is 
given by 

- an object mapping T G |J| — > |C|, 

- for any X G |JJ|, a map r/ X G C (J X,T X) (the unit), 

- for any X, Y G |J| and k G C(JX,TY), a map k* G C(TX,TY) (the 
Klcisli extension ) 

satisfying the conditions 

- for any X, Y G |Jf|, k eC(JX,TY), k = k*o V , 

- for any X G |J[|, rf x = id TX eC(TX,TX), 

- for anyX,Y,Ze |J|, keC(JX,TY), £eC{JY,TZ), {t ok)* =tok*. 

The data and laws of a relative monad are exactly as those of a monad, 
except that C has become J in some places and, to ensure type-compatibility, 
some occurrences of J have been inserted. 

Although this is not stated in the axioms, they imply that T is functorial: 
T G J -» C. Indeed, for X,Y G |J|, / G $(X,Y), we can define a map Tf G 



C (TX, TY) by T / = d f (rj o J/)* and this satisfies the functor laws. Also, r\ and 
(— )* are natural. 

A definition of relative monads based on a multiplication p rather than a 
Klcisli extension (— )* is not immediately available: the simple functor compo- 
sition T ■ T is not well-typed. In the next section, we will show that a suitable 
notion of functor composition is available under a condition. 

Clearly, monads are a special case of relative monads via J =df C, J = d f 7c- 
For general J, C and J, we always have that T X = d f J X is a relative monad 
with r/x=dfidjx and fc*= df fe. A whole class of examples of relative monads on J 
is given by restricting monads on C (the relative monad J arises from restricting 
the monad 7c). 

Theorem 1. For any J G J — > C, a monad (T, 77, (— )*) on C restricts to a 
relative monad (T b , ^ (-) ( * b) ) on J, denned &y I* X = df T (JX), = dl r)j x , 
fc(* b )= df fc*. 

As a first truly non-trivial example, we saw the relative monad of finite- 
dimensional vector spaces in the introduction. Here are some further examples. 

Example 2. The syntax of untyped (but well-scoped) A-calculus is a relative 
monad on Jf G Fin — ► Set, as the finite-dimensional vector spaces relative 
monad, i.e., we have J= d f Fin, C = d f Set, J=df Jf • We view Fin as the category 
of nameless untyped contexts. The set of untyped A-tcrms Lam r over a context 
r satisfies the isomorphism 

Lam r = J f r + Lam T x Lam r + Lam (1 + 7 1 ) 

The summands correspond to variables from the context (seen as terms), appli- 
cations, and abstractions (their bodies are terms over an extended context). The 
functor Lam G Fin — > Set is defined as the carrier of the initial algebra of the 
functor F G [Fin, Set] -» [Fin, Set] defined by 

fg r = d f jf r + g r x g r + g (i + r) 

Lam is a relative monad. The unit rj G Jf 7 1 — > Lam 7 1 is given by variables-as- 
tcrms and the Kleisli extension takes a finite substitution rule fee Jf r — > Lam Z\ 
to the corresponding substitution function fe* € Lam 7 1 — > Lam A. 

This example was described as a relative monad (under the name Klcisli 
structure) by Altenkirch and Reus [5]. Fiore et al. [7] described it as a monoid in 
a monoidal structure on [Fin, Set]. Their account of this example is an instance 
of our general description of relative monads as monoids from Section 4. 

Example 3. Typed A-terms form a relative monad in a similar fashion. Let Ty 
be the set of types (over some base types) , which we see as a discrete category. 
We take J to be Fin J. Ty, which is the category whose objects are pairs (7 1 , p) 
where r G |Fin| and p e 7 1 — > Ty (typed contexts) and maps from {T, p) to 
(7", p') are maps / G Fin (7 1 , 7") such that p = p' o / (typed context maps). 



We further take C to be the functor category [Ty, Set] and let J € Fin J. Ty — > 
[Ty, Set] be the natural embedding defined by J (-T, p) a = df {x e T | pi = a}. 

Now, for (r, p) e | Fin J. Ty| and a e Ty, the set of typed A-terms TyLam (r, p) a 
has to satisfy the isomorphism 

TyLam (r, p) a = J (T, p) a 

+ S TeJy TyLam (r, p) (r => <r) x TyLam (T, p) r 

inl * i — > t 



if a is of the form t =>■ r' then TyLam (1 + I 1 , 



inr a; i— > p x 



)r' 



The functor TyLam e Fin { Ty — > [Ty, Set] is given by an initial algebra. It is a 
monad on J, with the unit and Klcisli extension given by variables-as-terms and 
substitution, like in the case of Lam. Fiore et al. [6] studied TyLam as a monoid 
in [Fin|Ty, [Ty, Set]]. 

Note that choosing J to be [Ty, Fin] rather than Fin J. Ty would have given 
contexts possibly supported by infinitely many types: in every type there are 
finitely many variables, but the total number of variables can be infinite. 

Example 4- Morris and Altcnkirch [14] investigated generalization of the notion 
of containers [1] to a dependently typed setting and used it to show that strictly 
positive families can be reduced to W- types. Relative monads played a central 
role in this development. 

Let U e Set together with El e U — ► Set be a universe of small sets. This 
induces a category U with |U| =df U and U (a, b) =df El a — > El b. The functor 
Ju € U — > Cat is given by Ju a =df El a on objects and the identity on maps 
(viewing El a as a discrete category). We assume that U is locally cartesian 
closed, i.e., the universe is closed under dependent product and function types 
as well as equality types. 

As ordinary containers represent endofunctors on U (or any other locally 
cartesian closed category), indexed containers represent functors from a slice 
over a given a e U, we define the category IF a of indexed functors over a by 
IFa=df [[El a, U], U]. The functor IF e U — > Cat is a relative monad on Ju- The 
unit rj a e Ju a — > I F a is defined by r\ a x = d f A/. / x and the Kleisli extension 
k* G IFa -» IF 6 of jfc e Ju« -» IF6 is defined by fc*Gf = G(Xx.kxf). The 
definitions clearly resemble the continuation monad apart from the size issue. 

The main result of [14] was that strictly positive families (SPF) can be inter- 
preted as indexed functors by via indexed containers (IC). Just as IF, both SPF 
and IC are relative monads on Ju and the interpretations preserve this structure, 
i.e., are relative monad maps. 



2.2 Relative adjunctions 

As ordinary monads are intimately related to adjunctions, relative monads are 
related to a corresponding generalization of adjunctions. 

Definition 2. A relative adjunction between J € J — » C and D is given by 
two functors L € J — > D and R G D — > C, and a natural isomorphism cj> € 
C{JX,RY) ~B(LI,F). 



As expected, ordinary adjunctions are a special case of relative adjunctions 
with J=df C, J=df I- Just like any adjunction defines a monad, relative adjunc- 
tions define relative monads. 

Theorem 2. Any relative adjunction (L,R,(f>) between a functor J G J — > C 
and category D gives rise to a relative monad, defined by T X=^R (L X), r)x=di 
( f>- 1 (id LX ),k*= df R(4,k). 




If a relative monad T on J is related to a relative adjunction (L, R, <p) between 
J and some category D in the above way, we call the relative adjunction a splitting 
of the relative monad via D. 



2.3 Kleisli and Eilenberg-Moore constructions 

For monads we know that they split into an adjunction in two canonical ways: 
the Kleisli and Eilcnbcrg- Moore constructions. Moreover, the splittings form a 
category where the Kleisli and EM splittings are the initial and terminal objects. 
We shall now establish that the same holds in the relative situation. 

The Kleisli category K1(T) of a relative monad T has as objects the objects of 
J and as maps between X, Y the maps between J X, TY of C: |K1(T)| =df |J| 
and K1(T) (X,Y) = df C(JX,TY). The identity and composition (we denote 
them by id T , o T ) are defined by id x =df Vx and £ o T k = d f £* o k. 

The Kleisli relative adjunction between J and K1(T) is defined by LX=dfX, 
L f =df V ° Jf (note that L is identity-on-objects), RX =df T X, Rk =df k* 
and (f> is identity. This relative adjunction is a splitting: it is immediate that 
R (L X) = T X, Vx = <f>~ 1 (idlx ) , k* = R (<j> k) . 

The Eilenberg-Moore (EM) category EM(T) is given by EM-algebras and 
EM-algebra maps of the relative monad T. Since the usual definition of an EM- 
algebra refers to fi, which is not immediately available, we generalize a version 
based on (— )*. For ordinary monads this is equivalent to the standard definition. 

Definition 3. An i?M-algebra of a relative monad T on J G J — > C is given 
by an object X G |C| and, for any Z G |JF|, a map function \ € C(JZ,X) — ► 
C(TZ, X), satisfying the conditions 

- for anyZem, feC(JZ,X), f = X f°V, 

- for any Z,W G |J|, k G C (J Z,TW) , f G C (J W, X), X (x f ° k) = X f ° k* . 

These conditions ensure, among other things, that x is natural. 

An EM -algebra map from (X, \) to (Y, v) is a map h G C (X, Y) satisfying 

- for anyZem, feC(JZ,X), ho X f = v(hof). 



The identity and composition of EM(T) are inherited from C. 

The Eilcnbcrg-Moore relative adjunction between J and EM(T) is defined 
by LY = d( (TY, (—)*), L f = df T /, R {X, X ) =dfX, Rh= dl h(soRis identity- 
on-maps), 4>x.(Y,v) f =df w / an d <f> x , Yv ) ^ ~ df ^ lor lx- This is also a splitting. 

Theorem 3. T/ie splittings of a relative monad T on J G J — > C /orm a caie- 
gory. ^4n object is given by a category D and an adjunction (L, i?, <^>) splitting T 
via D. ^4 splitting morphism between (O, L, i?, 0) and (£>', L', i?', 0') is a /wnc- 
£or V e D -> D' smc/i t/iat V ■ L = L' , R = R' ■ V , and V 4>x.y = 4>'x.vy- 
The Kleisli construction is the initial and the Eilenberg- Moore construction the 
terminal splitting. 

Example 5. The Kleisli category of Vec has as objects the objects of Fin un- 
derstood as finite coordinate systems (describing vector spaces). The maps are 
maps Jf m — > Veen, i.e., m x n-matrixes (describing linear transformations). 
The identities are the unit m x m-matrices, the composition is multiplication of 
matrices. 

Example 6. The Kleisli category of Lam has as objects the objects of Fin under- 
stood as untyped contexts. The maps are maps Jf r — > Lam A, i.e., substitution 
rules (assignments of terms over A to the variables in r) . The identities are the 
trivial substitution rules. The composition is composition of substitution rules. 

3 Relative monads as lax monoids 

A monad on C is the same as a monoid in the endofunctor category [C,C]. It 
has a monoidal structure given by the identity functor / and composition of 
functors •, which are strictly unital and associative. A monad can be specified 
by an object T <G |[C,C]| and maps r] G [C,C] (I,T) and n e [C,C] (T • T,T) 
satisfying the laws of a monoid in the strict monoidal category ([C,C], J, •). 

Can we similarly define a relative monad on J e J — > C as a monoid in 
the functor category [J,C]? This requires a monoidal structure on [J, C], ideally 
similar to that on [C, C]. The functor J is a good candidate for the unit, but the 
tensor is problematic, as functors J — > C cannot be composed by simple functor 
composition. We shall use a left Kan extension to overcome the difficulty and 
obtain a lax monoidal structure where relative monads are lax monoids. 

3.1 Left Kan extensions 

Left Kan extensions are one of the two canonical constructions for extending 
functors. The left Kan extension along JeJ^C extends functors J — > D to 
functors C — > D. 




It is defined as the left adjoint (if it exists) of the restriction functor — • J G 
[C, D] -> [J, D]. By definition, it is given by a functor Lanj G [J, D] -> [C, D] and 
a natural isomorphism 



While it is possible to work directly with this definition of left Kan extension, 
we use an alternative definition, based on the coend formula 



Accordingly, we take that a left Kan extension of a functor FeJ^D along 
J G J — > C to be given by 

— an object function LanjF G |C| — > |D|, 

— for any X G |C|, a natural transformation 

t F x G [J op ,Set] {C{J-,X),B(F-,LanjFX)), 

— for any X G |C|, K G |D| and 6 G [J op ,Set] (C ( J -, A),B {F -, Y)), a map 
[9] G D (Lan j FI,F). 

satisfying the conditions [0] o = 0 g, [t] = id and / o [0] = [Xg.f o 0 g]. 

Left Kan extensions Lanj F X are functorial in both arguments F and X, 
i.e., Lan, 7 G [J,D] -» [C,D]. For any F G |[J,D]|, A,Y G |C|, / G C (X, Y), 



And for any F, G G |[J,D]|, r G [J,D] (F,G), A G |C|, we have 



In general Lanj G [J,D] — > [C,D] exists, if J is small and D is cocomplete. 
3.2 [J, C] is lax monoidal 

If Lanj G [J,C] — > [C,C] exists, we can turn any functor F G |[J, C]| to one in 
|[C,C]|. Hence we can define a composition-like operation 



This is our candidate for the tensor on [J, C] . We also need the unital and 
associative laws. We define several families of maps indexed by X G |C|: 



A x G C (Lanj J A, A) 
Ax =df [Xg. g] 

a F , G ,x G C (Lanj (F -G)X,F (Lanj G X)) 
&f,g,x =df [Xg.F(ig)] 

a F , G ,x G C (Lanj (Lanj F ■ G) X, Lanj F (Lanj G A)) 

&F,G,X =df ^Lan ,,F,G = [Aff . [Aff'. ifijo gr')]] 



[J, D] (F, G ■ J) = [C, D] (Lanj F, G) 




Lanj F / G D (Lanj F X, Lanj F Y) 
LaxijFf= di [Xg.i(fog)] 



Lanj t A G D (Lanj F X, Lanj G A) 
LanjrA= df [A5. tgor] 



(•• 7 )e|[J,q|x|[J,C]|^|[J,C]| 
F- J G= df LanjF • G 



All these families are natural in X, hence maps in |[C, C]|. 

From these we further define our candidate unital and associative laws. 

p F G [J,C] (F,F- J J) 
p F = d f tid 

X F € [IC] (J - J F, F) 
X F =df X ■ F 

a F ,G,H e M ((F • J G) ■ J if, F • J (G • J ff)) 

Oip,G,H =df S F,G ' # 

It turns out that the data so defined provide a structure that is almost 
monoidal, but not quite. It is lax monoidal: A, p, a are generally not isomor- 
phisms. In the next section we will identify conditions on J that enable us to con- 
struct the inverses, turning the lax monoidal structure into properly monoidal. 

Theorem 4. //Lanj G [J, C] — ► [C,C] exists, then ([J, C], J, • J , A, p, a) is a lax 
monoidal category, i.e., - J is functorial, X, p, a are natural and the following 
diagrams commute: 

J.JJ (F- J J)- J G aF ^F- J (J- J G) 

J J F- J G^^^^F- J G 

( J - J F) - J G aj,F '° > J - J (F - J G) (F ■ J G) - J J " F,G,J > F - J (G - J J) 

Af-^G^ ^V-'g Pp^\ ^F^ PG 

F- J G F- J G 
(F - J (G - J H)) - J K a F,a.J H ,K ^ F j ^ j H ^ j ^ 

a F ,G,H- J k\ \f- j u g ,h,k 

{{F - J G) - J H) K^Z?(F - J G) - J (H - J K)^^F (G - J (H - J K)) 



3.3 Relative monads are the same as lax monoids in [J, C] 

With a lax monoidal structure present on the functor category [J, C], we should 
expect that relative monads on J are the same thing as lax monoids in this 
structure, generalizing the case of ordinary monads on C and the strict monoidal 
structure on the endofunctor category [C, C]. This is indeed the case. 

Theorem 5. Assume iftai Lanj G [J, C] — ► [C,C] exists. 

1. Given a relative monad (T,r], (— )*) on J, define, for any X g |JJ|, a map 
px G C (Lanj T (T X), T X) by px =df [( — )*]■ This is well-defined, since 
(-)* is natural: (-)* g [J op , Set] (C (J —,TX),C (T —,TX)). 
Then (T, rj, p) is a lax monoid in the lax monoidal category ([J, C], J, - J , A, p, a) 
we have that T g |[J,C]|, r\ g [J, C] (J,T) and p G [J, C] (T - J T, T), and the 
following diagrams commute in [J, C] : 



T- J ri A T 
T- J J *-T- J T J- J T^T 



T- J n 




T ■ (T ■ T) — S- T - J T 



(T- J T) - J T 
T T- J T 



T ■■' T - 



2. Given a lax monoid (T, 77, p) in ([J, C], J, • J , A, p, a), define, for any X, Y £ 

a function (-)* e C (JX, TF) -» C (TI, TF) by k* = df /z y o tfc. T/ien 
(T, 77, (— )*) is a relative monad on J. 

3. The above correspondence is bijective. 

The bijective correspondence between relative monads on J and lax monoids 
in [J, C] extends to an equivalence of categories, but we must omit the details 
here (we have defined neither relative monad maps nor lax monoid maps). 

Moreover, just as the availability of Lanj e [J, C] — > [C, C] allows us to 
define relative monads based on p rather than (— )*, it also facilitates a more 
traditional-style definition of EM-algebras; we must omit the details. 



4 Well-behaved relative monads 

It is somewhat unsatisfactory to obtain that [J, C] is just lax monoidal, rather 
than properly monoidal. This begs the question: would some conditions on J 
ensure a properly monoidal structure? The answer is affirmative. Mild conditions 
turn the lax monoidal structure of [J, C] into properly monoidal. What is more, 
the same conditions also make relative monads on J extend to monads on C. 

4.1 Well-behavedness conditions 

We define three well-behavedness conditions on J. They are additional to the 
existence of Lanj e [J, C] — > [C,C] and require the constituent maps of three 
canonical families, which are actually natural, to be isomorphisms. For our pur- 
poses, these conditions are mild. 

Definition 4. J £ J — > C is well-behaved, if not only does Lanj € [J, C] — > 
[C, C] exist, but also the following three conditions hold: 

1. J is fully faithful, i.e., for any X, Y G |JJ|, there is an inverse to the map 

Jx,y El(X,Y) ^C(JX,JY) 

Jx,Y f =df J f 

2. J is dense, i.e., for any X, Y G |C|, there is an inverse to the map 

K xy eC(X,Y) -> [JJ°P,Set] (C(J-,X),C(J-,Y)) 
K x ,y f =df A.g. fog 

i.e. K e C-> [J op ,Set], with KX = df C ( J -, X), is fully faithful. 



3. For any F G J — ► C, X G |J|, F G |C|, i/iere is an inverse to the map 

L XY e Lanj (C (JX, F— )) F^C(JI, Lanj F Y) 

L x.y =df W-L9°g'] 

Example 7. The functor Jf e Fin — > Set is well-behaved. The functor Ju G 
U — > Cat of Example 4 is well-behaved, if the type-theoretic universe U € 
Set, El G U — > Set is is closed under dependent products (categorically this 
corresponds to the induced category U being cartesian). 

From the well-behavedness of Jf, it follows that [Fin, Set] is monoidal and 
Lam is a monoid. These facts were proved by Fiore et al. [7]. 

4.2 [J, C] is monoidal 

Our well-behavedness conditions suffice to ensure that the unital and associativ- 
ity laws of the lax monoidal structure on [J, C] are isomorphisms. Specifically, 
the existence of inverses of J, K, L ensures that p, X, a (and consequently also A, 
a) have inverses too. 

Theorem 6. If J G J — > C is well-behaved, then 

1. for any F G J — > C, X e |J|, the map p F \ G C (Lanj F ( J X), FX) defined 

Pf\x =df [Aff. F (J^ 1 g)] is an inverse of p F , x ; 

2. for any X G |J|, the map A^ 1 G C (X, Lanj J X) defined by A^- 1 =dt K _1 bj t x 
is an inverse of Ax ; 

3. for any F,G G J — > C, X G |J|, tfte map 

«p G x G C (Lanj F (Lanj G X) , Lanj (Lanj F-G) X) defined by x =df 
[Xg. [Xg.Xg'.Lgo tg'] (i _1 g)] is an inverse ofa,F,G,x- 
Hence, the category ([J, C], J, - J , A, p, a) is monoidal. 

As an immediate corollary, we get that, in the well-behaved case, relative 
monads are proper monoids in a properly monoidal structure. 

Corollary 1. //J — > C is well-behaved, then a relative monad (T,rj, (—)*) is the 
same as a monoid (T,t],p,) in the monoidal category ([J,C], J, - J , A, p, a). 

4.3 Relative monads extend to monads 

As a pleasant bonus, the well-behavedness conditions also ensure that a relative 
monad extends to an ordinary monad. Crucial here is that, if J is well-behaved, 
we have that A and a are isomorphisms. 

Theorem 7. If J G J — > C is well-behaved, then a monoid {T,rj,p) in [J,C] 
(equivalently, a relative monad on J) extends to a monoid (T # ,7y # ,/j#) in [C,C] 
( equivalently, a monad on C ), defined by 

T* = df Lanj T 

m A -1 Lan / rj 

V =df I ^ Lanj J ^ Lanj T 

/j # = d f Lanj T ■ Lanj T — ^ Lanj (Lanj T • T) — Lanj T 



We see that, in the well-behaved case, we can not only restrict monads to 
relative monads but also extend relative monads to monads. Thanks to p being 
an isomorphism, this correspondence is an embedding-projection pair. 

Theorem 8. If J € J — ► C is well-behaved, then the correspondence between 
monoids in [J, C] (equivalently, relative monads) and monoids in [C, C] (equiva- 
lently, monads ) given in Theorems 7 and 1 is an embedding-projection pair up to 
the natural isomorphism p: If (T, rj, fx) is a monoid in [J, C], then Pt is a monoid 
isomorphism between (T,r? 5/ u) and [T*\n*\ p* v ), i.e., p T G [J,C] (T,T# b ) is 
an isomorphism and the following diagrams in [J, C] commute: 



In fact, (— y extends to a functor from the category of monads on C to 
relative monads on J; (— )* is its left adjoint. The relative monad maps pr € 
[J, C] (T, Lan j T ■ J) give the unit of the adjunction; the fact that it is a natural 
isomorphism strengthens the adjunction into a coreflection. Remarkably, this 
adjunction is a lifting from functors to relative monads of the adjunction Lan,/ H 
— • J between [C,C] and [J, C], the defining adjunction of Lanj. 

The counit of the adjunction is (T • A) o 5 T , j e [C, C] (Lan,/ (T • J) , T). Unlike 
the unit, it is generally not an isomorphism, so the adjunction is not also a 
reflection. For example, for C =df Set, J =<jf Fin, J =<jf Jf , the counit is an 
isomorphism if and only if the monad T is finitary. This is important for us: the 
categories of monads on C and relative monads on J are generally not equivalent. 

Example 8. For the powerset monad V on Set, we have that V X is the powerset 
of a set X, V b X—^{P (Jf X) is the powerset of a finite cardinal X, and V b # X=d{ 
Lanj f V* X is the finitary powerset (the set of finite subsets) of a (possibly 
infinite) set X. The difference between V and arises because V is not finitary. 

Example 9. For the relative monad Vec on Jf, Vec^ X is the space of vectors 
over a possibly infinite coordinate system X that may only have finitely many 
non-zero components. 

Example 10. For the relative monad Lam on Jf, we have that Lam is the set 
of A-terms over a finite, nameless context X and Lam # X is given by the set of 
A-terms over a possibly infinite, name-carrying context X. The functor Lam^ 
is the carrier of the initial algebra of the functor F e [Set, Set] — > [Set, Set] 
defined by FG X = df X + GX x GX + G (1 + X). 

For the relative monad Lam 00 the picture is different. Lam 00 X is the set of 
non-wellfounded A-terms over a finite, nameless context, but Lam 00 ^ X is the 
set of non-wellfounded A-terms using a finite number of variables from a possibly 
infinite, name-carrying context. This differs from the non-finitary carrier of the 
final coalgebra of F, capturing general non-wellfounded A-terms that may use 
infinitely many variables. 



J 




5 Arrows as a special case of relative monads 



We now turn to a whole class of examples, Hughes's arrows [9]. As we shall 
see, arrows are relative monads on the Yoneda embedding. Arrow are commonly 
perceived as a generalization of monads. With relative monads, this relationship 
is turned upside down! 

The rigorous definition of arrows by Heunen and Jacobs [8] is as follows: 3 

Definition 5. A (Set-valued) arrow on a category J is given by 

- a function R £ |JF| x |J| — ► | Set | , 

- for any X, Y e |J|, a function pure <E J (X, Y) — > R (X, Y), 

- for any X,Y,Z £ |JJ|, a function (<gc) £ R(Y,Z) x R (X, Y) —> R (X, Z), 

satisfying the conditions 

- pure (g o /) = pure g o pure /, 

- s pure id = s, 

- pure id <IC r = r , 

- t (s r) = (t s) r. 

It follows from the conditions that i? is functorial (contravariantly in the first 
argument), i.e., R : J op x J — > Set, which is the same as to say that R is an 
cndoprofunctor on J, and pure and are natural/dinatural. 

A monad (T, 77, (— )*) on J defines an arrow (R, pure, <^C) on J by i? (X, Y)= d f 
K1(T) (X, y), pure / = d f L f and £<^k = d f ^ o T A; where L is the left adjoint in 
the Kleisli adjunction and o T is the Kleisli composition. 

We show now that an arrow on J is the same thing as a relative monad on 
the Yoneda embedding Y £ J -> [J°p, Set] defined by Y X Y = df J (Y, X). 

Theorem 9. 1. An arrow (R, pure, <^C) on J giues rise £0 a relative monad 
(T,r],(-)*) onY defined by T XY = df R(Y, X), T _ f r = df r /, r, f = df 
pure /, fc* r = d f fc id <IC r. 

2. 4 relative monad (T, r], (— )*) on Y giues rise £0 an arrow (R, pure, <^C) on 
J denned &y i?(Y,Y) = df TYY, pure/= df r?/, s<«r= d[ (A/.T_ / s)*r. 
('TTie Zasi ziem is well-defined, as Xf.T _ f s is natural.) 

3. The above is a bijective correspondence. 

The arrows on J and relative monads on Y form categories and the bijection 
between them extends to an equivalence of their categories. 

It is easy to verify that the Freyd category of an arrow is the Kleisli category 
of the corresponding relative monad. Jacobs et al. [10] have previously proved 
that "Freyd is Kleisli for arrows" taking "Kleisli for arrows" to mean a construc- 
tion that is Kleisli-like under a 2-categorical view of the Kleisli construction for 
monads. We can take it to mean "Kleisli for arrows as relative monads" . 

The Yoneda embedding is well-behaved. We reconstruct the result of Heunen 
and Jacobs [8] about arrows being monoids as an instance of a generality. 

3 Since we compare arrows to monads, not strong monads, we mean "weak" arrows 
here: J does not have to be symmetric monoidal and no first operation is required. 



Theorem 10. If I is small, then Y is well-behaved, hence the category [J, [J op , Set]] 
is monoidal. An arrow on J is a monoid in this category. 

Jacobs and Hcuncn considered the special case of arrows and showed an 
arrow to be a monoid in [J op x J, Set] (the category of endoprofunctors on J) as 
a monoidal category, which is an equivalent statement. 

6 Conclusions and further work 

We have introduced a generalisation of monads, relative monads, which is moti- 
vated by examples and subsumes arrows, a well-known generalisation of monads. 
Indeed, when moving to a more precise type discipline, the illusion that every- 
thing takes place in only one ambient category (say, Set) can no longer be 
maintained and as a consequence we have to revisit the categorically inspired 
concepts of functional programming. We believe that our examples demonstrate 
that monad-like entities which are not endofunctors are natural; fortunately, 
they are precisely monoids in the functor category. We also suggest that our 
presentation of relative monads given in Sect. 2.1 is accessible for functional 
programmers, indeed it does not differ substantially from ordinary monads. 

Our development is only the first step. Due to lack of space, we have not 
written about monad maps; we did not comment on the relationship between 
relative adjunctions and adjunctions etc.; strong monads (esp. versus strong 
arrows) are a further additional topic. We will elsewhere comment on the relation 
of our relative monads to the the recent generalization of monads by Spivey [17] 
that was also motivated by programming examples: he fixes a functor K e C — > J 
(notice the direction) to then look for monad-like structures with an underlying 
functor J — > C. With Paul Levy we have checked that a fair amount of monad 
theory transfers to his generalized monads, but they are not monoids in [J,C] 
unless K has a left adjoint, in which case they are equivalent to relative monads. 

It seems clear that many of the concepts known from ordinary monads carry 
over to the relative setting. We have already mentioned Jaskelioff's work on 
monad transformers which is expressed in a general monoidal setting and hence 
carries over to relative monads. We hope that this generalisation of the monadic 
approach leads to new programming structures supporting a greater reusability 
of concepts and programs. 
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